5 REM STEPPING UP OR DOWN
10 GOTO 100
20 PRINT"PRESS RETURN"
22 GETA$:IFA$=""THEN22
24 IF ASC(A$)<>13THEN22
26 RETURN
30 FOR D=1 TO 80:NEXT D:POKE S,0:RETURN
40 FOR D=1 TO 500:NEXT D:POKE S,0:RETURN
100 PRINT"[147]":PRINT"STEPPING UP OR DOWN"
110 PRINT"TWO NOTES ARE SHOWN.":PRINT"FROM THE FIRST ONE,"
120 PRINT"DO YOU GO UP, GO DOWN":PRINT"OR STAY THE SAME":PRINT"TO PLAY THE SECOND?"
130 PRINT"PRESS  F1 FOR UP":PRINTTAB(7)"F3 FOR SAME":PRINTTAB(7)"F5 FOR DOWN"
140 L$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
150 FOR I=0TO8:READF(I):NEXT
160 DATA 232,231,228,225,223,219,215,209,207
170 B(1)=135:B(2)=134:B(3)=133
175 POKE 36878,15:S=36876
180 GOSUB20
190 SC=0:FOR T=1 TO 10
200 PRINT"[147][144]":FOR I=1TO5:PRINTL$:NEXT
210 N1=INT(9*RND(0)):P1=7796+N1*22
220 POKE P1,81:POKE P1+30720,2
230 N2=INT(9*RND(0)):P2=7802+N2*22
240 POKE P2,81:POKE P2+30720,2
250 A=SGN(N1-N2)+2:FL=0
260 POKE S,237:GOSUB 30
270 PRINT"F1  UP":PRINT"F3  SAME":PRINT"F5  DOWN"
280 GET A$:IF A$=""THEN 280
290 IF ASC(A$)<133 OR ASC(A$)>135 THEN 280
300 IF ASC(A$)=B(A) THEN 350
310 FL=1:POKE S,159:GOSUB 30
320 POKE S,135:GOSUB 30:GOTO 280
350 POKE S,F(N1):GOSUB 40
360 POKE S,F(N2):GOSUB 40
370 IF FL=0 THEN SC=SC+1
380 NEXT T
390 PRINT "SCORE = ";SC;"OUT OF 10"
400 PRINT "TRY AGAIN? (Y/N)"
410 GET A$:IF A$="Y" THEN 190
420 IF A$<>"N" THEN 410
430 PRINT"[147]":END